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NEWSLETTER 25 


Beste Leden, 
Met een extra dik nummer (88 pagina's + mini-poster) hebben we deze 25-ste uitgave iets feestelijker willen maken, 
We zijn ervan overtuigd dat er genoeg materiaal in zit om heel actief de feestdagen door te brengen. 


Herselt, december '84 


Een terugblik op de voorbije manifestaties : 

20 october Nijvel : een 250-tal bezoekers bevestigden dat het een goed idee was om deze dag te organiseren. We 
mochten een dertigtal nieuwe leden noteren en verschillende DAl-gebruikers maakten voor de eerste keer kennis met 
onze uitgebreide software-bibliotheek. Onze gelukwensen aan de initiatiefnemers C. Poels en Р. Duluins. 


17 november Utrecht : groot, druk, onoverzichtelijk... we hebben "5 morgens een half uurtje moeten zoeken om onze 
eigen kramen te vinden ! We hopen dat U ons toch heeft kunnen vinden. Zoals in Nijvel was er veel belangstelling voor 
onze experimenten met de video camera interface, ook vanwege niet-DAI gebruikers. 


24 november Diepenbeek : Het onderwijssymposium georganiseerd door SCHOOL en COMPUTER kende een groot 
succes. Onze DAI computer was ruim vertegenwoordigd : in de software catalogus vonden wij demonstraties door : 
Marc Antrop, Bruno Van Rompaey, INDATA, TRON, J. Mergaerts, M. De Jaeger, F. Cerulus en ondergetekende. 


Ondanks de aangekondigde posttarief verhogingen kunnen wij de contributie ongewijzigd houden 
Subscription prices will be the same in 1985 : Ы 


Benelux: 1000 Bfr — Europe: 1100 Bfr — Air Mail: 1500 Bfr 


Collective subscriptions (for schools only) : 
2 and more subscriptions on the same address and paid together : - 30 % from the second subscription on. 


voor België en andere landen `  DAlnamic subscriptions 
В. Van Rompaey 
Bovenbosstraat 4 
B-3044 HAASRODE 
Tel. (016) 46.10.85 
Bancaccount : 230-0045353-74 of Gen. Bank Leuven 


voor Nederland: J.F. Van Dunne pour la France : DAInamic FRANCE 
Hoflaan 70 C. Dufour 


NL-3062 JJ ROTTERDAM Rue Lavoisier 9 
Tel. (010) 144802 59149 DUNKERQUE 


giro : 4083817 Tel. 02866 3339 


Noot : Maakt U zich geen zorgen om wisselkoersen, U kan gerust 1000 Belgische Franken overschrijven via de 
Nederlandse giro, F. Druijff heeft het voor ons uitgeprobeerd. 


NEW SOFTWARE: | BOEKHOUDPROGRAMMA : audio2000 Bfr 
DCR2150 Dir 
DBASIC V2.2 + ext. update : 250 Dir 
FYSISCHE GEOGRAFIE : audio1000 ВК 
DCR1150 Bfr 


SOON AVAILABLE : 

COMPILATION 83-84 : We don't know yet how many tapes it will take (DCR), but as this collection will offer programs 
from Newsletter 16 to Newsletter 25, it will be a lot of software ! 

SUPER-BASE : At last a 100 96 machine-language database program, using the total amount of RAM to hold up to 
1000 records, depending on the field-size. Ultrafast sorting, build-in mail-merge, formatting for all kind of labels and 
so on... | 
PATROUILLER : The latest creation of P. Janin, if you ever saw PHOENIX, you know what we are talking about... guide 
your CAR on the surface of the moon and encounter a lot of missions to complete your race... 

The first issue of 1985 will deal specially with DCE-bus and other I/O projects. If you have some projects ready, please 
send description to be published in Newsletter 26. 





We invite you to dive into this jubilee-issue, till next year, W. Hermans 
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343 REMARK 

344 INHOUD - CONTENTS REDACTIE 

346 PROGRAMMEERTECHNIEKEN F. DRUIJFF. 
In deze aflevering behandelt Frank Druijff de verschillende iusstructuren. Hierbij komen aan bod de mogelijk- ` 
heden bij DAI-BASIC, DBASIC & TURTLE-BASIC. 

In zijn streven naar volledigheid heeft Frank weer niet genoeg aan 4 bladzijden, het vervolg leest U in een 
volgende editie. 

350 BANKOVERSCHRIJVINGEN L. BEYENS 
Luc Beyens Schreef dit programma voor het verwerken van bankoverschrijvingen. 

Als ingewijde in de wereld van het bankwezen doet hij ons tevens een aantal truucs aan de hand, o.a. de 
controle-berekening op het banknummer. (zie lijn 230) 

351 Guido vult de ruimte op pagina 351 met zijn frisse blik. Met de ogen bewegen tijdens het scan-proces geeft 
wel een aardig schele indruk, Guido ! 

352 CURSUS MICROPROCESSOREN A. BEUCKELAERS 
Met deze laatste aflevering beeindigt A. Beuckelaers zijn introductie in de wereld van Bits & Bytes. 

Deze keer vindt U in zijn verhaal een aantal routines, o.a. het bouwen van lussen in machinetaal. 

In de eerste aflevering van volgend jaar start hij weer meteen met een reeks over toepassingen voor onze 
DCE-bus. Hardware-fanaten kunnen alvast de soldeerbout opwarmen. Wij proberen om rond die tijd terug 
een aantal DCE-kaarten in voorraad te hebben. 

364 DAI CHARACTER SET C. DUFOUR 
Cedric took his magnifying-glass and took a close look at the characters in MODE 0. 

With this tables, no more guessing about CHR$ (x) ! 

367 DAlminiCALC P. WANET 
A not so mini program, not yet VISICALC, but the program can be very useful for calculations on a limited 
number of values. 

A sample demo of how the program can be used in tourist business is given on page 376. 

377 DCR-function indication DAlnamic Germany 
Another approach of implementing LED's on the front of your DCR. A fine idea of Hardy Strobel, Jean 
Marchand constructed the beautiful picture. 

378 DE NIEUWE DAIS MICRO MAGAZINE 
We brengen graag een uitvoeriger verhaal over de nieuwe realisatie van INDATA, maar tot op heden hebben 
we nog geen apparaat aan de toets kunnen voelen. 

Noot : Het artikel schijnt in het Nederlands opgesteld te zijn ! Foei, vertalers van MICRO MAGAZINE... naar 
waarheid kan dat veel beter ! 

FEU D'ARTIFICE R. MARCEL 
Een goede vervanging voor de BRT-eindejaarsshow ? 

379 EPROMPACK A. BORST & co 
Mr BORST showed us his realisation on the HCC-days in UTRECHT. 

A fine solution for loading a limited number of programs you are using very often, in a few seconds. 
Circuit design and component layout are given. 

385 ERRATA DATAFLEX F. COUWBERGHS 
If your file is full, DATAFLEX causes troubles. The solution is given in a few BASIC lines. 

If you cannot arrange the modifications, send us your disquette, we will replace it. 

386 FEESTWENSEN J. OVERVOORDE 
Jeroen zendt ons zijn digitale wenskaart, wij sluiten ons aan en heffen het glas op een voortreffelijk 1985. 

387 FRACTALS T. BERKX 
Take a look at and listen to the mysterious results of FRACTALS. Try different parameters to create cosmic 

. tunes and pictures... 

388 FWP PATCHES 2 G. GRUITERS 
If you patch your FWP with this information, you have some extra facilities with the MARKERS. 

389 HEAP ORGANISATIE F & F CHABOT 


FRE gives us the free PROGRAMSPACE. What about the free space in the HEAP for indexed variables 
and strings ? The BASIC program offers insight of how DA! BASIC is using pointers in the HEAP. 
The machine languagae routine calculates the free space in the HEAP. 
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POSTER TINA TURNER 


N. LOOIJE & video interface 
Tina Turner on our DAlnamic poster... (not even the best part of her). 
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JEROEN DEMO J. OVERVOORDE 392 
In this program, Jeroen offers а beautiful simulation of the NOS-logo picture. 

LE MONITEUR BASIC DAinamic FRANCE 393 
Translation of the article by J. Boerrigter. 

MODIFICATION DNA-FWP J. MENIER 396 
If you want to do text processíng on DNA source files, here is all the information you need. 

NEW SOFTWARE : FYSISCHE GEOGRAFIE M. ANTROP 397 
Een nieuwe onderwijscollectie, verzameld door Marc Antrop. De cassette wordt geleverd met uitvoerige 
documentatie in het nederlands. 

NEW SOFTWARE : DBASIC extensions W. COREMANS 397 
Version 2.2 of DBASIC has a few small bugs corrected and is delivered together with 2 very strong 

extension files. See also DBASIC part 4 p. 427-430. 

NEW SOFTWARE : BOEKHOUDPROGRAMMA F. & CHABOT 398 
Een universeel boekhoudprogramma dat reeds zijn waarde in de praktijk bewezen heeft is nu beschikbaar. 

Bijzondere aandacht is besteed aan het voorkomen van fouten, de nodige beveiligingen zijn ingebouwd. 

Uitvoerige documentatie in het Nederlands wordt meegeleverd. Voorlopig alleen beschikbaar op audio en DCR. 

RAUTEN R. SCHALL 399 
Another graphic masterpiece by Rolf Schall. 

ERRATA NUMBERS UP F. DRUIJFF 399 
For unknown reasons, two words were scrambled in the previous listing : lines 470 & 510 are corrected now. 

80 KOLOMMEN TEKST : A. DOORNENBAL 400 
How to get 80 characters/line by hardware modification... More information will follow soon... 

SAVEV / LOADV ` C. POELS 402 
There can be long delays after loading ordinary (long) arrays. Indeed, reorganisation from «tape»-buffer to 

HEAP has to be done. C. Poels has written a routine to save HEAP contents and symbol table without 

delay. Some precautions however, have to be taken... 

SCREEN TABULATOR E. ZAHNER 405 
How to use screen tables with RS232 off. 

SPL UN ASSEMBLEUR POUR LE DAI pc A. MARIATTE / LIST 

While it is very hard to find an article on DAI software in general-purpose computer magazines, we are 

very happy that A. Mariatte takes care about this in the French magazine LIST. Other articles on our 

Software will follow in LIST. Many thanks Alain ! 

THE DIM STATEMENT J. BOERRIGTER 409 
Jan Boerrigter explains why some programs might run very well on machines with ROMS V1.1 and cause 

troubles on V1.0 machines. 

TISSUS ARMURES R. PRIN / MICRO-ORDINATEURS 410 
Remy prin explains how he can save a lot of time in the textile-design business. 

TOP SECRET J. GUERARD 414 
Use this routine to protect your programs against unauthorised use. 

TRAMES C. DUFOUR 416 
Cedric discusses the technique of using colour screens to create new colours. 

TRUCS M.V.D. MEERSCH 419 
How to merge programs and how to delete parts of a BASIC program. The second tric works all the time 

if your CLEAR is large enough to hold the entire part of the program that is send to the EDIT-buffer ! 

SPECIAL LISTING M.V.D. MEERSCH 420 
Maybe you have already seen those beautiful DAI-listings with semi-graphics in text. You can do it yourself 

if you study the article of Marc. 

UTILITAIRE SEMI-GRAPHIQUE P. PEDELABORDE 422 
Create pictures in MODE text 16 colours. Remember this MODE is not possible on the first DAI machines, 

unless a hardware mofidication is done. 

WEGWEISER R. SCHALL 424 
Try to find your way in a complicated labyrinth... 

DBASIC part 4 W. COREMANS 427 
Willy announces the latest and final version of DBASIC, together with 2 most interesting extensions. 

16 x 16 DESIGN W. HERMANS 431 


Use these grids to create objects for FGT, SFGT or machine language programs. Take some photocopies 
before you start to paint your creations ! 
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Structuren in basicprogramma’s zijn het onderwerp van deze keer, Langzaamaan 
begint ook basic steeds meer instructies te kennen die niet echt noodzakelijk 
zijn, maar die programmeren direct af later prettiger maken. Met instructies 
die direct het programmeren prettiger maken bedoel ik bv FOR-NEXT, WHILE-WEND, 
REPEAT-UNTIL.  Instructies die vooral later hun vruchten afwerpen als U het 
programma nogeens doorneemt om er een paar kleine veranderingen іп aan te 
brengen zijn bv PROCEDURE en FUNCTION en labels. Deze mogelijkheden zitten 
jammer genoeg niet alle in de standaard DAl-basic. Maar gelukkig brengt D- 
BASIC daar nu verandering in. Hiermee verandert de basic in een soort PASCAL. 
ии fahrikanten hebben een soortgelijke BASIC al verheven tot nieuwe taal 
ni COMAL. 


Maar laten we bij het begin beginnen en eerst de loops of lussen bekijken. De 
naamgeving is duidelijk afkomstig uit de tijd dat er alleen nag maar in machi- 
netaal of assembler werd geprogrammeerd. Het is als volgt te zien : als je het 
programma stap voor stap volgt met een vingertje langs de listing, je vast- 
stelt dat er programmadelen zijn die meermalen worden uitgevoerd, Heb je dan 
een pen in de hand zie je vanzelf een lus (in het engels loop) ontstaan, Vaak 
wordt het dan ееп volledige warboel, Zeker als er meerdere loops in elkaar en 
helemaal door  elkaar zitten. De structuur moet dan geheel van de programmeur 
komen, Maar om in minimum basic dus zelfs zonder FOR-NEXT een loop op te zet- 
ten zijn er vele methodes. Eens kwam ik een artikel tegen met de Кор '24 ways 
to program a loop". Wat zijn deze methodes dan en waarin verschillen ze van de 
andere ? De body bestaat uit een of meer instructies die een zeker aantal 
malen (N) uitgevoerd dienen te worden, Er zijn een paar principiele verschil- 
len aan te wijzen : de teller die het aantal bijhoudt telt op tot N of telt af 
vanaf N. De teller telt tot N of tot en met Nf bij daten tot 9 of tot en met 9 
De controle, of de grens reeds bereikt is, wordt vooraf gedaan of achteraf. 


Een aantal voorbeelden : 





-й- -H= -D- 
19 Тед 18 T=1 19 19 т=а 
20 КЕМ begin 20 REM begin 29 29 IF Тем GOTO 78 
~~ body == body 3@ IF ТУМ GOTO 99 50 REM begin 
Dë REM eind Sé REM eind 46 REM begin == body 
60 T=T+1 698 T=T+1 == body 66 REM eind 
79 IF TON GOTO 29 76 IF T<=N GOTO 29 78 REM eind 79 T=T+1 
ве GOTO 29 8e GOTO 29 
96 REM vervolg 99 REM vervolg 


Op het eerste gezicht weinig verschil totdat we ons bedenken hoevaak de body 
nu wordt uitgevoerd, Mijn leerlingen krijgen ALTIJD deze structuur te leren en 
dan later pas bv FÜR-NEXT. Ik vraag ook altijd hoeveel zij eronder durven te 
verwedden dat de body inderdaad N maal is uitgevoerd en niet №1 of Меј maal. 
Een programma, waarvan U niet zeker weet dat het goed werkt, is nog slechter 
dan een programma, dat niet werkt, Dat laatste geeft geen antwoorden maar het 
eerste misschien foute antwoorden., Controleer de werking vooraf met kleine 
waarden voor N, zodat U dat zelf eenvoudig kunt controleren . Vervang de body 
daartoe door by “PRINT "TEST "ST" en neem voor M een getal onder de tien. Nu 
de verschillen : Bij de versies A en В zal de loop minimaal eenmaal doorlopen 
worden, ook ale M kleiner dan een is en bij de versies C en D zal dit niet ge- 
beuren. Daar wordt de loop (bij niet-negatieve N tenminste) precies N maal 
doorlopen. In dit opzicht hebben C en D dus de voorkeur boven 4 en B. Maar er 
zijn meer regels gebruikt en ook meer GOTO’s en dat maakt het programma niet 
overzichtelijker. Wel is nu het begin en het einde van de loop gemarkeerd met 
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een BOTO. Hij D kunnen we trouwens door de test op gelijkheid met N grandioos 
de mist ingaan als N en/of T een breukdeel bevatten. Een ander verschil tussen 
C en D zit in de plaats van de verhoging van Т. Bij C wordt er altijd verhoogt 
en bij D alisen als de loop daadwerkelijk doorlopen wordt. Merk op dat de ver- 
hoging van T ook voor de body, maar na de test, geplaatst kan worden. Hij À en 
H is het voornaamste verschil in de waarde уап T tijdens het uitvoeren van de 
body. Wordt de waarde van T in de воду gebruikt is dat dus een criterium am te 
kiezen tussen & en B. Andere varianten zijn nog te bedenken: N van 11 t/m 4€ 
of van -19 t/m 20, ( Klopt dit wel ? ) In plaats van T van 1 t/m 50 te laten 
gaan hem van 10 t/m 308 te laten gaan in stappen van tien in plaats van een. 
Merk op dat onze taal bij 18 t/m 500 wel duidelijk is in het er bij horen van 
S66 maar niet met het er bij huren van 16, 









De verschillen komen neer op de volgende zaken : 


vanaf startwaarde of van en met startwaarde 

tot eindwaarde of tot en met eindwaarde 

eerst uitvoeren dan controle of eerst controle en dan eventueel uitvoeren 
verhoging voor cantrole of verhoging na controle 

verhoging voor uitvoering body of er na 

controle op gelijkheid (gevaarlijk ! ) of ongelijkheid 

controle op X of <= jrespectievelijk > af >= 

T is zuivere loopteller ídwz telt de doorgangen) of is reeds voorbewer kt 
vaar gebruik in de body. 


CB YY O £D b д к 
بے به‎ м صا صا‎ e Den ~ 


Alle combinaties hiervan leveren dus meer dan de al genoemde 24 mogelijkheden. 
We komen nu toe aan de FOR-NEXT instructie . Dit programmeert vanzelfsprekend 
veel simpeler en soms ook eleganter, We hebben geen GOTO meer nodig dus war dt. 
het geheel overzichtelijker. MAAR als U geen antwoord weet te geven op de vol- 
gende vragen тад u hem niet gebruiken |!!! Hoe is de volgorde bij де  FOR-NEXT 
eerst controle of eerst uitvoeren van de body ? Eerst de body en dan de verho- 
ging of net omgekeerd ? Eerst de controle of eerst de verhoging 2 біз het U 
lastig valt op zulke theoretische vragen te antwoorden kijk dan naar de prac- 
tische vragen aan de hand van de volgende voorbeelden. 





19 FOR 150 TO 20:...........:МЕХТ wat is de waarde van I na regel 16 ? 
28 FÜR 1=5 TO 12:...........:МЕХТ hoe vaak wordt de body uitgevoerd 7 
36 FOR 156 TO 6:............:МЕХТ hoe vaak wordt de body uitgevoerd ? 


49 FOR Is8 TO S:........ NEXT hoe vaak wordt de body uitgevoerd > 
Moeilijker : 


би... о. 2 ДЕР NEXT hoe vaak wordt de body uitgevoerd ? 


59 FOR Ізі TO 29 
1 hoe vaak wardt de body uitgevoerd ? 


68 FOR Ізі TO 





Nag lastiger : 






Wat is het verschil tussen FOR (ien TO 6 en FOR I 06? 
Wat is het verschil tussen FOR I%=@ TO 6 EN FOR IXs6.0 TO 6.0 2 
Wat is het verschil tussen eindigen met NEXT en NEXT I ? 





En tot slot de vragen waar bijna niemand correct antwoord op blijkt te kunnen 
geven: Hoeveel niveaus van FOR-NEXT kent de DAT ? Mag men straffeloos uit en 
FOR-NEXT loop springen 7 


We zullen een aantal van de hierboven beschreven gevallen bespreken. Miet alle 
want de eerste vier kunt U vanzelfsprekend zelf intikken en dan controleren. 
Foei als het nodig is en driewerf foei als U het niet zeker weet en dan toch 
niet controleert. De problemen met regelnummers 58 en 90 zijn lastiger. De DAI 
bepaalt aan het begin van de loop hoeveel maal deze doorlopen moet worden. Hii 
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hil eindwaarde min beginwaarde te delen door de grootte 
tepgrootte à krijgen we de foutmelding ‘DIVISION BY ZERO’. 
у teller houdt het aantal doorgangen van de loop bij. Ver- 
y eenmaal uitge d en dan zowel de interne teller als de 

de programmeur opgegeven variabele verhoogd tof verlaagd) . Veranderen we 
in de bed 1 






























y dus de eige üoopcounter) zal deze wel veranderen, maar het 
aantal malen dat de loop lopen wordt, wordt met de interne teller bijge- 
houden en onveranderd blijven . Het resultaat is dat bii regel 56 de bady 






maal wordt uitgevoerd en I vie de oneven getallen uitkomt op 41. Bij regel 
: 1 al uitgevoerd worden en I op 1 blijven. (steeds een er af 
r af aan het eind) Het ve 1 tussen gebruik van een integer teller 

Ж point 1! ] anelheid van werken, vooral te merken 
Opgelet t S bij het werken met integertellers in dit 
224,4 INEXT geeft de foutmelding ‘DIVISION 
de stapgroottevariabele, die een breukdeel 
rden die dan afgerond: wordt het й krjgen we 
n de andere valle n onjuist werkend programma . Ik 
sn vinden in het gebruik van MEXT en NEXT I. 






















BY ZERO, evenals de be 
plevert, Bij integ 





a 





Met aantal 

een aantal vr 
DAL een aan 
stack 
nes. 


DAL aankan is wisselend en dit veroorzaakt dan ook 
Om te onthouden waar de FOR-NEXT body begint zet de 
een speciale plaats in het geheugen (de stack) Deze 

+ door de RüM-routines en bv de interrupt routi- 
k ter testing het volgende programma in : 











із FÜR 


29 FOR 2 
за FOF 2 Niet erg dat er geen МЕХТ'п staan 
140 FOR 2 het programma moet ontsporen voor de test 





FOR 0 H 
160 FOR Ред ТО 


E: 





ыра 


= 


U zult zien dat na RUN bijna altijd de melding “STACK OVERFLOW IN LINE 1607. 
Voegt U aan het programma toe 155 PRINT "ufghtf" komt Wal bij 155 op stack 
overflow, Vaak intikken van RUN levert ook soms een stack overflow op regeis 
met lagere nummers. Bii mij 144 als minimum. Dit verschijnsel is te verklaren 
door he gebruik van de stack door RÜM-routines en de interrupt handling. Bv 
zal de 26ms interrupt (en de cursor interrupt’ als onderdeel daarvan) niet 
altijd op hezelfde moment in het programma komen. Het maximum 18 dus bij een 
normale stack 15 niveaus, maar het blijft gevaarlijk zo diep te gaan , daar op 
andere plaatsen dit problemen met stackruimte kan geven. Heeft het programma 
zelf al subroutines ( GOSUB ) levert het helemaal vrijwel zeker problemen op. 
Een aardige tip voor luie ( = slimme ? ) programmeurs : de teller mag best een 
arrayvariabele zijn. dus kan de gewenste informatie als volgt gevonden worden. 








18 DIM T(20) 
20 FOR Tit)=@ TO 2: 








1%1:6070 29 





RUM geeft zoals verwacht “STACK OVERFLOW IM LINE 297 en PRINT I levert 14 ор. 


En dan nu het grote misverstand. Velen denken dat ze bij de DAI ongestraft uit 
een FOR-NEXT loop mogen springen, D LT Iu. MIE F WAAR CE A ep 
De goede programmeur wist reeds dat het principieel nooit kan . Een zeer grate 
stack kan het probleem enige id uitstellen maar het komt gegarandeerd. Het 
laatste voorbeeld liet het eigenlijk al zien. We springen daar uit de FOR-NEXT 
en we krijgen inderdaad een stack overflow. Maar de ontwerpers van de DAI heb- 
ben iets heel slims bedacht. Als er een FÜR-NEXT loop opgestart wordt en er is 
al eerder een FOR-NEXT loop gestart met dezelfde teller dan wordt die teller 
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opnieuw gebruikt, De stack wordt daarmee dus niet extra belast en zo is het in 
veel gevallen dus toch mogelijk geworden om uit een FOR-NEXT te springen , Ter 
controle kunt U even intikken "19 FOR 1=8 TO 2 ü 19%. U krijgt bij RUN geen 
stack overflow. De consequenties hiervan zijn, zoals hiervoor geschetst, dat Ч 
slechts zelden stack overflow zult krijgen door springen uit een FÜR-NEXT loop 
Alleen die gevallen waar steeds uit FOR-NEXT loops wordt gesprongen en al die 
loops een andere loopcounter hebben, zal het bij een g er aantal fout gaan . 
Conclusie : Het is aan te bevelen steeds dezelfde variabelenamen t ebruiken 
als loopcounter. Voor de duidelijkheid van het programma is het iet aan te 
raden, maar het kan zonder problemen : 

















199 FOR Hel TO годе: H: 
11@ PRINT "KLAAR” 





IF Мед THEM NEXT Binnen 1088 keer reageren 


anders gaan we verder. 





U begrijpt dat met maar een soort loop nl de NEXT, terwijl er zoveel mag 
lijk zijn er naar nieuwe constructies werd gezocht, Ik behandel de WHI WEND 
en de REPEAT-UNTIL. Een belangrijk verschil met de FOR-NEXT is het feit dat nu 
bij aanvang nog niet bekend is hoe va de loop doorlopen moet worden. Dit im- 
pliceert dus tevens, dat we, bij een foutieve programmering, in een eindeloze 
loop kunnen komen te zitten. 













От te beginnen de REPEAT-UNTIL,. De syntax voor deze instructie is voor D-BASIC 
als volgt : REPEAT [statementís)] : UNTIL “logical expression? De dubbele punt 
voor UNTIL is noodzakelijk, maar zoals aangegeven met de rechte "f J’ haken de 
statements niet. Met zoals bij de FOR-NEXT, worden de statements minstens een- 
maal uitgevoerd. Enkele voorbeelden voor het gebruik : 


16 REPEAT H=GETC:UNTIL H 








à wachten op taetsaanslag 


20 REPEAT T=T+is UNTIL GE УЙ controleer de reactietijd tot toetsaanslag 
ха REPEAT DOT X,Y 23:YsY*1:UNTIL You maak langzaam een kolom van hoogte W 
„да REPEAT GOSUB 2000: UNTIL. Тед doe de subroutine op 2000 tot dat T nul is 


Over WHILE-WEND is iets meer te vertellen. De syntax ervoor is in wezen niet 
correct en ook nog eens verschillend bij  D-HASIC en TURTLE-BAGIC . Let dus op 
het verschil : 


### D-BASIC : WHILE ¿logical expression? DO Lstatement(s)] : WEND 


De 2007 is hier in wezen overbodig. Ook zonder dat woord is het te begrijpen 
wat er gedaan moet worden. De body (= Г tement (ail ) wordt uitgevoerd zolang 
aan de voorwaarde (= «logical expression? ) wordt voldaan. Тв de voorwaarde al 
bij de start onjuist wordt de loop NIET doorlopen. Voorbeelden voor gebruik s 









18 WHILE GETC=® DO WEND Wacht ap een toetsaanslag 
жж Volgens de syntax van D-BASIC zou er tussen DO en WEND een : moeten staan. 
26 WHILE Т>9 DO TsT-1:WEND Tel af tot nul 


TURTLE-BASIC WHILE <logical expression? DONOT “Linenumber >: [statement (s) 1: WEND 


De WEND is hier in wezen overbodig, daar bij logisch programmeren па de WEND 
juist het regelnummer volgt dat achter de 'DONOT^ staat. Ik vind het niet een 
bepaald mooie instructie in TURTLE-BASIC. Zolang aan de voorwaarde wordt vol- 
daan zal niet naar de regel achter de 'DÜNOT' gesprongen worden, maar de sta- 
tements tot de WEND uitgevoerd worden, Een nadeel van de WHILE-WEND in TURTLE 
BASIC is het feit dat ze niet genest kunnen worden. 


Het volgend nummer kom ik hier nog op terug. Evenals de opmerking, dat er geen 
verschil is tussen NEXT en NEXT I 


Frank H. Druijff 
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PRINTEN van het КЕК, НА in STANDAARDVORM en CONTROLE op de CHECK-DIGIT 

220 CURSOR 31, {SPRINT LEFTS НОВ, 2) gt" S MIDS (025,3, 7) "RIGHTS ИВ 2)". " 

230 IF VAL(RIGHTS(NBS, 222: ( (YAL (LEET ИВЕ, 61). MOD 97) $100004VAL (NIDS(NBS,4,4))) NOD 97 GOTO 280 
240 CURSOR 46, LS:PRINT "ВЕК, МЕ ONJUIST" 

230 FOR DZ-SBBBF-20,042.0-3.0 ТО 12-29,0 STEP -2.0:PÜKE TÀ,SFF:NEXT 

280  COLORT 14 0 15 0 

270 GOTO 210 

280  COLORT 14 0 14 14 

285 ІР Viel GOTO 410 

290 CURSOR 31, LAT INPUT B$ 

300 — BESVAL(BS) sLESLEN (BS 

303 REM + PRINTEN van het BEDRAG en PLAATSEN van het PUNTTEKEN 

IF 0323.0 AND 177.0 BOTO 330 

IF 172.0 GOTO 340 

BUTO 360 

BSzLEFTS (BE, LX-2) +" "+RIGHT SBE, 2) GOTO 350 

LLAZLENILEFTS (BSL 2-61) 











ИРАН Ар" * 


151,11 





OR 31,1O:PRINT MEDS; " 





d CORRECTIERG 
) ETIES NOME (J/N) 





X*BANKOVERSCHRIJVINGEN* 





ES 








TIEBALK ON VERDER TE GRAN" 





PRINTRDUTINE 
PRINT CHRÉ(I 
PRINT "= 
POKE 4151,0 
PRINT TABL 
PRINT TAB( 
PRINT Tá 
PRINT ТА 
PRINT Та 
PRINT КЕФ 
РОХЕ #131, 1 
PRINT “= == 
0 TO 1O:PRINT :ВЕЈТ 

1,1 

›0:1НРИТ "NOG EEN OVERSCHRIJVING (J/N) ";NQ08$ 
IF NüG$-"N* вото 800 

IF NOGSC3"N" AND NOG$<3"J" БОТО 760 

PRINT CHRS (12) :AZ=AL+i 26078 40 

IF ду] 8010 890 

PRINT :PRINT :PRINT 

PRINT 
POKE 421,0 

PRINT ТАВ (2) DAS:PRINT :PRINT 

PRINT TAR(24) Es RER nt" S TA (42) РЕНЕ: PRINT PRINT 

PRINT TAB(28):"GEZAMENLIJKE OVERSCHRIJVING"zPRINT :PRINT :PRINT PRINT :PRINT 
PRINT Аду" BIJLAGEN" 

PDKE 2131, 1:PRINT " 
PRINT CHR$112) 

POKE #131, 1:END 


2):PRINT :PRINT : PRINT 





zzz": PRINT 





DAS: PRINT :PRINT 









)SLEFTS(NBS, 3) 1" -" HIDE (NBS, 3,7) 1" "S RIGHTS INBE,2) 1T. 
28) (RAS: PRINT 
ADS: PRINT 
bi WOE: PRINT 





HAZ ВРАТ PRINT 





SPOKE 39151,0 














"SPRINT 
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M 





NOP 00000000 


No operation 

Deze opdracht heeft geen enkel resultaat tenzij het laten 
voorbijgaan van 4 klokperiodes. Deze opdracht kan bijvoor- 
beeld gebruikt worden om sen overbodige instructie te ver- 
vangen zonder dat daarbij het hele programma dient herschre- 
ven te worden. De NOP instructie laat eveneens toe in een 
programma plaatsen te voorzien waar achteraf een instructie 
kan toegevoegd warden. 


4.3. Opbouw van een programma 





Als we een programma wensen op te bouwen, gaan híeraan enkele belangrijke 
stadia vooraf. 

Het probleem of de toepassing waarvoor een programma dient geschreven te 
worden, dient vooraf in al zijn facetten grondig bestudeerd en geanaly- 
seerd te worden. 

Als resultaat van deze analyse wordt een organigram opgebouwd, waarin aan 
de hand van tekensymbolen de verschillenae fasen gesymboliseerd worden. 
We merken op dat een programma zoveel mogelijk in kleine modules dient 
geschreven te worden. Onder een module verstaat men een programmagedeelte 
dat een logisch geheel vormt en zelfstandig bepaalde akties uitvoert. 

Het voordeel van deze modules is dat ze afzonderlijk kunnen getest worden 
op foutloze werking. Ze kunnen tevens door andere programma onderdelen 
opgeroepn worden als subroutines. 

Men dient een prógramma steeds te voorzien van de nodige commentaar (do- 
cumenteren ), niet alleen om achteraf het programma vlot te kunnen lezen 
maar tevens om aan derden toe te laten uw programma te begrijpen. Меп 
noemt dit een programma documenteren. 


4.4. Symbolen gebruikt in organigrammen 


|| Dit symbool geeft het oproepen aan ven de subroutine 
МААМ. 
МААМ 


Oit symbool duidt het begin van een programma 
(START) of het einde van een programma (END) aan, 
alnaargelang de ingeschreven tekst. 


In dit symbool wordt een programma onderdeel aan- 
gegeven dat kan afgehandeld worden door één of 
meerdere instructies. 


Subroutines die opgeroepen worden om bouwstenen te 
initialiseren worden ook voorgesteld door dit 


TATT / symbool. 
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ja 


SCH 


uU 
Ж 





De in dit symbool geschreven vergeiijking of tekst 
wordt getest. Het programma wordt verdergezet in 
de richting van de 'ja-uitgang' of de 'neen-uitgang' 
alnaargelang het resultaat van de test. 


neen 


Symbool voor manuele invoer (bijvoorbeeld 


van een klavier Je 


Symbool voor machinale in- en uitvoer (bijvoorbeeld 
naar een regeldrukker). 


Als het organigram meerdere pagina's lang 15, geeft 
Q dit symbool aan dat de lijnen met hetzelfde nummer 
dienen doorverbonden te worden. 


4.5. Programmavoorbeelden voor de 8080/8085 





Voorbeeld 1 : optelling van twee 8 bits getallen 


Veronderstel dat in RAM op adres A120 het hexadecimaal getal 86 staat 


en op het adres ЙЕЙ1 het getal 1A. 
We wensen deze getallen op te tellen en het resultaat terug te schrijven 


op het adres E1. 
Het programma bevindt zich bijvoorbeeld in ROM vanaf het a 


gebruik makend van de mnemonics, luidt het 


dres 0021 en 


LDA A126 H 
LXI H,E81 H 
арр M 
MOV ма 
LDA ZA12D H laadt de accumulator met de inhoud van de geheugencel 


A120. Іп hexadecimale notatie moeten getallen steeds 
beginnen met een cijfer (vandaar de B voor А120 en ein- 
digen met H.  Zonder H wordt het een decimaal getal, 
met een B wordt het een bineir getal. 


ACURSUS MICRO, 2# DAInamic 84 - 25 333 


554 DAInamic 84 ~ 25 


LXI H,BEB1 H laadt het registerpaar onmiddellijk met het adres ЙЕЙ1. 


ADD М telt de inhoud van de accumulator op bij de inhoud van 
de geheugencel die geadresseerd wordt door het HL re- 


gisterpaar (ЙЕЙ4). Het resultaat komt іп de accumulator. 


MOV M,A Brengt de inhoud van de accumulator naar het adres aan- 


gegeven door het HL register (ЙЕЙ1). 


От duidelijk te zien wat er gebeurt in functie van de tijd, hebben we on- 
derstaande tabel voor elke instructie de inhoud gegeven van de registers 
en geheugencellen die bij dit programma betrokken zijn. 








ROM RAM 


| Hexacode || HL ACCU |A42D ` ЙЕЙ1 
















Mnemonic 









LDA #А120 H 

















MOV M,A 











(1) ? wil zeggen dat de inhoud niet nader bekend is en een gevolg is 
van een vorig programma of van een startprocedure van de micro- 
processor. 

(2) DØ is de hexadecimale som van BB еп 1А. 


Het programma kan niet onder de vorm van mnemonics in het programmatie- 
geheugen gebracht worden, maar wel onder de vorm van de hexadecimale code 
van kolom 3. 


Stel zelf het programma op voor het optellen van twee 18 bits getallen 
a) met 8 bits optelinstructies (ADA, ADC) 
b) met de 16 bits optelinstructie DAD. 


Voorbeeld 2 : programmatie van een korte vertregingslus 


In een register wordt een getal ingeschreven. Oe registerinhoud wordt 
met één verminderd en er wordt getest of de inhoud nul is. Indien de 
inhoud niet nul is, wordt de registerinhoud opnieuw met één verminderd en 
terug getest. 


ORGANIGRAM : 
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getal-register 





EINDE 


PROGRAMMA 


MVI B, FF H 
LUS: DCR B 
INZ LUS 


LUS staat in dit programma als symbolisch adres LABEL genoemd. (LUS is 
het adres waar de instructie DCR B ís ondergebracht. 

Als we over een assembler vertaalprogramma beschikken, Kunnen we het 
programma rechtstreeks invoeren in mnemonics, waarbij gebruik gemaakt 

kan worden van labels, dit zijn symbolische namen (adressen) waaraan door 
de assembler een bepaalde waarde wordt toegekend. Deze mag tot zes alfa- 
numerische karakters bevatten met als eerste een letter, een vraagteken 
of een 6. De label BEGIN wordt gevolgd door een dubbelpunt. Labels 
mogen geen mnemonics zijn die gebruikt worden als opcode. Andere assem- 
bler directieven zijn ORG adres (РСчайгез), END (afsluiting) en EQU uit- 
drukking of adres waarbij de waarde toegekend wordt аап een label. 
Voorgaand programma wordt dus 


BEBIN: 085 1980 н 
TEL | ЕШ FF H 
"NI B,TEL 
LUS: DER B 
147 1 112 
ан? Lus 
END 
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| START i 

Als we echter niet over een assembler vertaalprogramma beschikken, moeten 
we het programma onder hexadecimale vorm manueel invoeren. 
Veronderstel dat we dit programma inschrijven vanaf het adres 1000 H in | | 
RAM, dan wordt het symbolisch adres overeenkomstig met de label LUS gelijk | getal » B | 
aan 1882 Н. ! 

му ,FF H 

4 з 


VI E 
16202 
ісе? DCR B 
dN? 1482 | 
| 
| 





Let er op dat bij het invoeren van de adressen de minst beduidende byte | 
het eerste komt en slechts daarna de meest beduidende byte. 
Wensen we de vertragingstijd van deze lus te kennen, dan dienen we eerst 
het aantal klokperiodes per instructie te kennen. Voor de processor 
8080 wordt dit : 


муп Dr H 7 klokperiodes 
LUS: DER B 5 klokperiodes KEEN ЕА ipt 
ам? LUS 10 klokperiodes meas VE VBevosr] 


De totale vertragingstijd is : 7 + (5410) 255 = 3822 klokperiodes. 

Indien we werken met een klok van 2MHz (periode 500ns) dan is de vertra- 
gingstijd 3832 x 0,5 = 1916џ5. 

Indien kleine tijdsaanpassingen gewenst zijn, kunnen we enkele instructies 
inlassen die geen invloed hebben op de tellerwerking (bv. NOP, MOV A,A ; 
ОКА A,A ; XCHG). 

Bij het inlassen van 1 NOP na DCRB wordt de vertragingstijd 2,4ms. i 


ja 
| 
Voorbeeld 3 : programmatie van een dubbele vertragingslus_ | FENDE 


Het gebruik van een dubbele vertragingslus in genestelde lussen, kan aan- 
zienlijk langere vertragingstijden geven. 








В = 0? „ 





| PROGRAMMA : 
ORGANIGRAM : 
P192 
Klokperiodes Aantal malen doorlopen 

MVI B,FF 7 AX 

LUE? му БРЕ 7 5220 

LUSI DCR Г; 5 255x255 
ENZ 1181 10 
DCR B 5 255х 
INZ 1162 10 
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Totale vertragingstijd 





7+255(10+5+7)+2552(5+10) = 980.992 klokperiodes of 490496џ5 = 0,49sec. MUI 
Indien deze vertragingslussen als subroutine opgeroepen worden, vergroot Н LXI : veller taden тесп 
de tijd met de duur van een CALL instructie (17T) en RET (707). | LUES IN f adres register laden met 3000 
Bij het gebruik van de processor 8085 moeten we rekening houden met enke- | ма : үеге ко, mE 
le tijdsaanpassingen. Zo duurt een DCR 4T (i.p.v. 5T) JNZ 10T bij een INX ғ lezing inschrijven in geheugen 
sprong еп 7Т bij een voortzetting van hęt programma. | му » edresregisters incrementeren 
Het wordt aan de lezer overgelaten hiermee de nieuwe tijdsvertragingen | Бива CALL : 
te berekenen. i BER а 20366 
| өм? 
DER ; tell 

Voorbeeld 4 : Het inschrijven van meetresultaten JNZ DT ENEE 

— u ят тт Шз HLT 3 testen of teller op nul staat 


Aan kanaal 2 van een microprocessorsysteem is een thermometer aangesloten 
die de gemeten temperatuur geeft onder de vorm van een 8-bits code. 

We wensen om de 20 seconden een meting te verrichten en in te schrijven | Voorbeeld 5 : op 0 stellen van geheugen 
in opeenvolgende geheugenplaatsen en dit vanaf geheugenplaats 3999. | 

Na 50 metingen dient het programma te worden stopgezet. Een vertragings- 


routine van 0,5 seconden kan opgeroepen worden onder de naam TIJD. 


We wensen 100 opeenvolgende geheugenplaatsen vanaf adres Й1ЙЙ Н op nul 
te zetten. 



















ORGANIGRAM : ORGANIGRAM : 
START Ë 
(HL) =Й1ЙЙ 
teller Ез50 
(HL) езййй H neen i 
| (0)=1000 
ja i 
Se SS 
تمت‎ 
i 
gn 
ТЕМРУМ пееп | s s == 
HL=HL+1 
ا تت‎ ue 






| 
js | (HL)=(HL)+4 | 


ا | 


teller D=4ÿ 








+ 


(0)=(0)-1 | 
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PROGRAMMA : 





Lx: b ; adres register laden met 0120 
мл 0,1 ; teller laden met 122 
WISSEN 4,08 ; geheugencel op nul zetten 
H ; adres register incrementeren 
р ; teller decrementeren 
WISSEN ; teller testen op nul 





In de geheugenplaats 1827 bevindt zich een byte waarvan slechts één bit 


gelijk is aan 1. 


Naargelang de plaats van deze bit in de byte dient het programma verder 
gezet te worden op een adres dat kan gelezen worden in de geheugentabel 


vanaf adres ЙЕЙЙ (voor bit 0) tot ЙЕЙЕ (voor bit 7). 
ORGANIGRAM : (zie pag. 108) 


PROGRAMMA : 


byte in accumulator 

adres register laden met HES 
verschuiven naar rechts 

; carry testen 

; adres register 2x ophogen 





WD 


in 


; volgende bit testen 
-LSB van adres іп Е 


; MSB van adres in D 

; inhoud van DE naar HL 

і programmateller laden met 
adres waar het programma 
verder gezet dient te worden. 
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START 


(1288) + А 











((HL))>E 





(HL)=(HL)+2 
| 
((HL+1))+D | 
| 


(DE) PC 


“CURSUS МІСКО. 24 
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| 
| 
| 





MMA : 
Voorbeeld 7 : teller PROGRA! 


Aan kanaal 1 van een microprocessorsysteem wordt een getal (N) van 





twee decimalen in BCD aangeboden. cou Hi а у 21 по op nui 
We wensen aan kanaal twee een teller te verkrijgen, die decimaal telt UID me 5 ; ES afdrukken 
vanaf het getal М tot 98. Elk getal dient gedurende 0,5 sec. aanwezig | А ENA 1135 ; 0 5 sec. wachten 
te blijven. We beschikken daartoe over een vertragingsroutine van | THR ода у камыт га ophogen 
0,5 sec. die kan opgeroepen worden onder de naam TIJD. i Daa ; accu. omzetten in BCO 
ORGANIGRAM : EPI e ; testen overgang 99/0 
JNZ UIT ; indien # 0 verder tellen 
JMP BESIN ; indien = 0 herbeginnen 


| Verondersteld dat we een blok informatie, waarvan de lengte zich in het 
registerpear BC bevindt, wensen te verplaatsen van het beginadres dat 
zich in HL bevindt naar het beginadres dat zich in DE bevindt. 









CARRY EN ORGANIGRAM : 


HULP CARRY 





INITIALISERI 
BC, HL, DE 


















HL=HL+4 
| DE=DE +1 


| BCsBC-1 





A=A+1 
DAA 
i neen 
neen 


ja 
ja 2—2 
/ ЕТМОЕ | 
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MERE H Hi LES Ве 
38 D | 1 ЕЕЕ Er 
11 ча 15 14 15 15 















































TETE по 
CCE се 
писмото ра 
а ја је по 
эе во 
ar tat hat hat во 
iol fay at Ta) зе 
јаја [яга во 
a Те јаје [sla] 
эе tat jn са 
ISOM IML ар 
ét et ага во 
at het ај tel oo 
at Tal Tint ЕТО 
ait “fatal во 
TR EM ETC] [sta] 
1E 





Les differentes matrices ci-dessus représente le jeu 
complet des caractères du DAI, soit 128 au total. La taille 
des matrices à été adaptée à celle des caractéres.Ainsi les 
majuscules sont dans une matrice de 8 points verticalement, 
alors que les caractères semi-graphiques sont inscrit sur 
16 points . Dans tous les cas la première ligne de la mat- 
rice est la meme que celle du caractère correspondant . La 
lecture des dessins des caractères ayant été réalisée 
manuellement, si vous decouvrez une erreur faites le moi 
savoir ! 


Cédric Dufour 
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1 
n. 
зет 


ü 







келі. 
Thuy" 





om 


ü D 
к 


uae 
ui dépend du nombre de formules 
affichage dépend des dimensions des tableaux 


+s 
LE à 


х) 


кетү 
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formules 
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sur ОС 
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5 TO S:READ С:РОКЕ #ЕВеР+ ОГ: МЕХТ 
5,900, 879, #08, RCD, #18, 809, #01, 409 
GOSUB 3900 

Tist 

GOSUB S2890: Пари IF 















REM DATminiCALc  ---- IMP INT !!! 
CLEAR 15990:Dn 5.9),А%%50.08,15.0),РП $036.02, 
Шы a. 121.8) 


тта" 
TTAS-TTAS«SPC ( 
РОКЕ 8131, 1:PRIN 


ІК: 08%= LEFTS (RAS, LEN(AA$)-2) 








PRINT :INPUT "DATE : "i DATES: FOR JJ=1 TO 6@:98=S¢+" 


39: R$ (ІК) <64+59+64: NEXT 


Ү2=1:50508 5609: INIT=1:59SUB 3790 
donnee. *Shitt+cur. repen donnee": 
ribet ae es"; CURSOR @,@:WOIT TIME 29:650508 1500 
:GÜSUB 1@0@:CURSOR CX,CY 

EN 100 

а 28.8 THEN СС-Ө:БОЗИВ 1000 

^19 GND AK<24 THEN 2098 

IF QK=35.@ THEN CURSOR oo: РЕТНТ SPL (59); 
iS.)-"":GDSUB 32980: GOTO 99 

IF 8K-17.0 THEM GOSUE 4998 

IF GK-15.0 THEN GOSUB 4190 

IF O¢=19.@ THEN GOSUE 4208 

IF GE=19.@ THEN GOSUB 4590 

IF Әк>15.0 AND QK420.0 THEN CC=HFF:GOTO 99 
IF QK-32 THEM 506 

IF QK=47 THEN CURSOR 6,0:PRINT SFT (59): 
50980: вото 98 

GOTO 99 

CURSOR 06,9: INPUT 5% 

LI-B:IF XZ=@ THEN 11-12 

IF LEN(S#) OLI re S$-RIGHTS$(SS,LI) 
ipo Mi SS-0:FN-0 

THEN НА 

IF Ша ШАНИ THEN SI--1: 


NT "'Space'- 
















CURSOR @,@:PRINT PH": AS ҮҮТ, 


: CURSOR ®,@:PRINT "/"::G605UB 








LE-1:S8$-RI 






BHT$(SS.LK) 


фона" AND AS<="9" THEN SS=SS¥14+ASC (A$) -48: 5070 


ју 1)+8%+ 


URSOR 5,2 
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826 
865 
876 
1898 
1818 
1450 
1940 
1950 
1948 


1076 





3050 
5952 
3456 
3969 
3978 
3889 
3999 
3199 








Раја раб P.BHAMET 





1.0) THEN S$-"-"48$ 

SS:RETURN 

POKE #75, 52:POKE #74, 1:K 

AR-EBFEF-YY4485-X1*245*DD 
K=AA TD AA-14-DD STEP -2 


={2+XX*6: DD=0: IF XX=@ THEN DD=& 









m 


S=A (YZ, XZ ):8$- Ag (YZ, 
THEN 605 
2 THEN GOSUB 
THEN 50808 
THEN GOSUB 
@ THEN LI=12 

LI THEN S$=RIGHTE{5$,LI) 
AS (YZ, Х2)=8% 

IF жен" AND 85-0 THEN 2050 
АХҮ2,Х2)=55: Б050В 20000 

GOTO 463 





REM ENTREE DES FORMULES & NPI 

INPUT ЕХФ: ТР EX$-"" THEN 5020 

IF LEFT$(EX$, 1)-""" THEN 5800 

EX$="#"+EX$+", тірРе- TRE="":PL=0:C2$=""s PAR=O 
80508 3440:REM LIRE 

PIL$ (PP) -C2$:PP-PP41 

GOSUB 3440:КЕМ LIRE 

IF Ca$="<" THEN C2$-CHRS$ (92) 

IF C2$=">" THEN C2$=CHRS (94) 








IF C2$-" " THEN 3050 

F C2$-"(" THEN 3140 

IF C2$2-"A" AND C2#4<=CHR$ (94) THEN 3178 

IF C2$="+" DR C2$-"-" DR С28-"#" OR C25-"/" THEN 5200 
IF C2$-")" THEN 3240 

IF C2$2="9" AND C2¢¢="9" THEN 5548 





C2s-"," THEN 3518 
3459 





REM ( 
PAR-PAR41:1F Ci1$2-"A" AND 
PILS(PP)-C2S:PP-PP-I:GÜTO 5050 


Di$C-CHR$(94) THEM ER-2:80T0 3458 


REM ОРЕНАМРЕ 








IF iCi$2-"A" AND C1$C-CHR$194)? OR Съри)“ THEN ] 3438 
TRS-TR$4C2$:B0TO а 

REM OPERATEUR 

IF Cig="+" OR Ci$-"-" OR Свети" DR Cige"/" DR Брђани" OR Cig="#" THEN 


ER=4: GOTO 3430 
C$=C2$:S0SUB 3576: SPRI= ERI 
C$=PIL$ {PP-1. 8) : GOSUB 3576 
IF SPRISPRI THEN PILS (PP) =C2$: PP=PP+1:60T0 3ese 
TRS-TRS4PILS (PP-1. 0) :PP=PP-1:G0TO 3230 
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$-"/" THEN ER=5:G0TO 


52869: CURSOR 9,9: 





s" THEN RETURN 
MIDS (EXS ‚FL, L) PLSPL+1: RETURN 


REM PRIOR (CS) 
PRI=@:FOR Ik=1 TO 8 

i IF PRE(IK)=C$ THEN PRI=PR(IK):RETURN 
NEXT IK:ER=8:RETURN 


REM TABLE DE PRIORITE 
PR${1.0)="#":PR(1.0}=0 
PR$(2.0)="(":PR{2.0)=1 
PR$ (3, 0}="+":PR(3.0}=2 
PRE(4.0)}="-":PR(4.0)=2 
PRE (SS. éier ER (D, a) =: 
PRE. =" "PRG. 0) 23 
PR$(7,0) 2") "t PFRC7.0)—4 
=", іРК(8.0)-5 











RETURN 







L$-MID$(EXS 


URSOR o, 9: RETURN 


МЕ DS (EX$, JJ, 1) :C2$=MIDS(EX$, Jd+1, 1) 
əн THEM PRINT " erreur de syntaxe ";:S6$="";GDTD 


} THEN бъ ЕЕТЕ (58, IK) +E 2$+RISHT$(S$,LL- Ik) 


ымын 





YY-21.0 THEN 4948 
(221.9 THEN YY-YY41 


THEN YZ=YZ+1 








THEN YZI-YZt1:BÜSUB 4500 
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4950 
4160 
4119 
4120 
413% 
4140 
4150 
4208 
4210 
4220 
4230 
4240 
4250 





4596 
4519 
4526 
4530 
4500 
5000 
5001 
5002 
5003 


5204 
5995 
5228 
5019 
5920 
5025 
5959 
5949 
5950 


Sese 


5051 


5042 


5045 
5066 
5968 
5078 
5975 


Е 
5988 


5590 


€1 0 
зае 


5529 
5539 
6889 


6095 
5919 
5915 
602 

көзе 
6248 


ха ке Ба BJ BJ BJ BO MJ PJ ne ox 


ТЕ XX=6 THEN 


— DAIminiCALC P.WANET 


RETURN 

IF ¥Y=1 THEN 4140 
IF YY?1 THEN YY-YY-1 
IF YZ>1 THEN YZ-Y2-1 





RETURN 

IF YZ}1 THEN YZ-Yz-1:805UB 4500 
RETURN 

IF XX=@ THEN 

IF THEN 

IF ) THEN 

RE 


IF 
RETURN 





THEN Х2-Х:2-1:605МЕ 4500 


IF ce THEN ХУ 
IF Х7514 THEM X 
RET! IDA 
IF Х7<14 THEN XZ=XZ+1:GOSUB 4500 
RETURN 
FOR KK-1 TO 21 
GOSUB 4490 
NEXT EK 
SOSUB 5000: RETURN ` 
E$(KK)=MID$(R$(KK+YZ-YVY), (Х2-ХХ) 48, 49} t RETURN 
POKE #75,32:POKE 474,1:PRINT CHRE(12)5 
COLORT 9 9 9 9:FOR HK-WBFES TO #BF4D STEP 
PRINT MIDS (TTAS, (XZ-XX)48,6011 
FOR IK=1 TO 22:A8=B#BFEF-#B6#(IK-1)-4:JJ=b2+IK+YZ-YY:IF 22-92 ОН ЈЈ=94 
THEN 24-22-32 
POKE AA, JJ:FOKE AA-3,#FF:NEXT IK:PRINT 
IF INIT=9 THEN 5075 
FOR JJ=1 TO 21:PRINT Е%(22):МЕХТ JJ: GOTO 5075 
PRINT :FOR 22-1 TD 39 
LESLEN (A$ (JJ, 9.9) t G$28PC CL2-LE) +AS IJ, 0, 0) 
FOR ІКсі ТО 14:1F ACIJ,IK) 20.0 THEN AASA (12, IK) :SA$="" : 80808 Don 
IF А1202,1К)<0.0 THEN Aa= -А403, IK) :SA¢="-":GOSUB 5500 
IF 8600, IK)=0.0 THEN зае 
AS=AS+SPC (B-LK) +АА®+Е5Р®:БОТП 5965 
LO=LEN CAS (JJ, IK) ) : IF ара THEN LS= 
SOTO x= 5 
1 а THEM AS-A$-SPC(OB-L S) 40$ (IJ, IE +ESP$: GOTO 5083 
AS=AS+SPC (В) +ESPS 
NEXT:PRINT A$;:1F LEN(ASI<ES.8 Т 
IF FLFOR=1.9 THEN PRINT A${JJ, 13.2} 
IF FLFOR-6.9 THEN PRINT 
NEXT: CURSOR 2, PRIN SPC (50) 1 
COLORT 9 15 14 3 
POKE #74,9:POKE #75, #FF:RETURM 
Aas="" 
QE-A8/10: RE-6A-1040K : AAS=CHRS CABHRE) + Аз: АА=0К 
AAS=SAS+AAS: LE=LEN (ARS): IF LKS THEM Gë over 
RETURN 
CURSOR @,1: PRINT рош Save.Calcul.Decal.Transla.Ins.Print,Fin.Zera ! = 
z ? {}";:CURSOR e 8,8 
PK-GETC:IF PK=6 THEM 8095 
PRINT CHRS (PK) ; 
IF PK THEN 8500 
THEN SOSUE 7000:6070 6206 
THEN GOSUB 8228:5070 & 
THEN GOSUB 9009:5070 6266 





-2:РОКЕ HE,SFF:NEXT 





G1 A$ {JJ , IK RIGHTS (A$ (dd, IK}, 82 1 








F DE 


D © THEN 5518 
iow":LK-H 








£ 
t 


T 


m 





BM ra 


= 
T 
E 
t 
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& IF THEN GOSUB 12090: GOTO 5282 897 CALLM #F@00:REM REWS 
5 IE THEM GOSUB 15 3000: вото дәре 8075 вото 522 
& IF 5 THEN XI-XX:YZ-YY:iGDSU е: вото 6200 8590 FOR 11-0 TD SO:PILS(II)-A$(I1, 18) :NEXT II:FLAGFO-1 
5 IF THEN XZ-XX48:YZ- 99: 8610 RETURN 
5 IF TEN Ms SE MS aus КЕ 8700 FOR 11-0 TO 3@:AS(II,1S)=PIL#CII):NEXT II 
“ } =ХХ+В:Ү?=ҮҮ+Ө:БО5ИН 4589: GOTO Qu 2 50:А%(11,15)=5Р1Ь#Ф{11):МЕХТ I 
616 IF РК=122 THEN XZ=XX:YZ=VY+9:S50SUB 4500:8010 6298 8719 RETURN 
5110 ТЕ PK=73.0 THEN BOSUE 19909:6010 4200 8900 CURSOR 9,9:PRINT SPC(S9};:CURSOR 9,@:PRINT "Busy — Even geduld 
візе IF PK-99 THEN GOSUE 11599: вото 5200 Attendre svp!" s : RETURN 
6138 IF PK=62 THEN BDSUB 5590:GOTO 4200 
6140 IF Pk=60 THEN GOSUB 6400:8070 төө 3000. БЕМ CALCULE 
ё: CURS PPRINT SPC(59);:CURSOR @, 2: RETURN 9295 CURSOR @,@:PRINT " de suis occupe "i 
82 PRINT :INPUT ^ AVEC FORMULES D/N "PTRIFLFÜR-O:IF T$="Q" OR T#="0 " THEN | 9030 FOR 21-1 TO l4:PP=0 
Е 9160 1 GOSUB 55006 
4301 PRINT :PRINT CHRS(27)3"—";CHRS (1) CHRS (1415 T£ (0. 0) ; : PRINT ы кыы, ес ER 
"oe (9% 59 TURS „2: PRINT S8): CURSOR 9,9 
8519 =" ":PRINT CHR$(15);:G0SUB 5010:РОКЕ 4131,1:EGP$-"": GDSUB 2495 ти 
200 2509 d 
&500 INPUT "Recopier ( j a "jT$:iIF T$-"" THEN T$-"14" 10268 шешн а LA LIGNE No ";1$:1F I$<="9" THEN IK=VAL (I$): 
6519 — TK-VAL (те) sKK-YZ: к: I Mad 
Ser GEN : E EE EE 10005 — IK-ASC(IS)-6A:IF IK=(-2) OR IK=(-4 THEN IK=IK+32 
5520 KK-YY:GOSUB 4600:CURSOR @,23-KK:PRINT ЕФ (КК) ; : RETURN 10910 FOR 102-509 TO IK+1 STEP -i 
6500 uer "Recopier (а gauche) jusqu'a ";T$:1F T$="" THEN T$="1" 10020 1 FOR КК-0 TO 14:45 (IJ, KK) <A$ (3-1. 0, KK) 1A (JJ, KK) =A (12-1. 0, KK) :NEXT KK: 
6618 КеМА (7%):КК-Ү7:ВА-А(КК,Х2):ҒОН JJ=XZ-1 TO TK STEP –1:А(КК, JJ) =54: 55= ЕЕЕ i ПА i 
baii 20000:A$ (KK, JJ) =2%: 80808 15000:NEXT 22 n 
6628  KK-YY:iBÜSUB 4480: CURSOR o, 23-KK:PRINT E$(KK)i:RETURM 10030 — T$=A$(JJ-1.0, 15.0) :GOSUB 10500:8%(22,15.0)-ТФіМЕХТ JJ: GOSUB 4500 
7900 CURSOR @,1:PRINT SPCIS9)::CURSOR 9,1:PRINT "titre I=IDEM(que 10000 , EISININ с 
precedent) S=SKIP R=REW 1  N-annul.save'"; 10050 EAE PRES arago 
7601 | CURSOR Ф,Ө:РЕТМТ SPC(S9)::CURSOR 9,9: INPUT T&:CURSOR @,2:IF T$-"I" AND bes ee І1<51 THEN 10050 
T&(G)4»"" THEN 7008 f 
7002 IF T$-"R" THEN CALLM #2000: REM REN2: LOOK Wer GE n 
7603 IF T$-"S" THEN CALLM #2090: КЕМ SKIP 5 к= К-1:С%= „КК, | 
7604 ТЕ T$-"I" DR TS="S" DR TS-"R" THEN 7000 10510 1 IF C$2-I$ AND CS-CHRS(94) THEN TS=LEFTS (TS, KK) +CHRS (ASC (C$) +1)+ 
7005 T$(O!-T$:lF T$="" OR T&-"N" THEN RETURN Б i REIR cH 
7065 SAVER T$ T5(0.0)4" "«DATES 0526 С 
7018 SAVER as 11000 FOR KK=@ TO 14:A$(dd,KK)=A$ (IK, KK) : (13, KK) за (IK, KK) : NEXT: RETURN 
7620 RETURN 11508 CURSOR 1,@:PRINT SPC(56);:CURSOR 9, 9: INPUT "ZERO LIGNE DU COLONNE 


(L/C/ R-fin )":T$ 


11595 "L" AND Те" С" THEN CURSOR 9,@:PRINT SPC(59) : : RETURN 



























8222 REM CURSOR 9,1:PRINT SPC(5 
88285 г пара TS : s CURSOR 8, 1:PRINT 9,1:PRINT T$(0.0); 11518 L" THEN GOSUB 11599:G60T0 11599 
8885 CURSOR 6,0:PRINT SPC(59);:1 " ZSy=SKIP 1 =REWIND 1 1152@ F T$="C" THEN GOSUB 11709:GDTO 11500 
<C>=BARDER БОИ “зра Lt 11428 INPUT раз ТЕ (LSC"A" AND L$<>y"u<" AND L$z2"2") OR LS$oCHRS (94) THEN RETURN 
N | 11418 ddJ=ASC(L$)-64:1F Jd=(-2) OR dd={-4) THEM JJ=JJ+32 
914 | 11898 FOR KK=@ TO 14:4$(JJ,KK)-"":A (JJ, КЕ) =O: NEXT: RE (JJ1 -SPC (124) : GDSUB. 4500: 
| RETURN 
5 5 i 11729 INPUT JJ:FOR KK=1 TO 50:А%(КК, Jd} =" "АКК, Jd) =9: S$=SPC(8) :GDSUB. 15000: 
> THEM 8272 | NEXT:GOSUB 4599: RETURN 
Е 250508 8228 1200: INPUT ТЕ INPUT " vers “iJJ: CURSOR 9,0: IF ТЕРА OR 1114 QR ІК<9 OR 4450 
TD Zë: LK E O. OREL (124) АЕ, 0.0) :F. 33=1 THEN 12090 
TO 1 AS (ТЕ D Net ge 2” дур же 12019 FOR КК=1 TO oe ak ыы А ИВЕ (EK, JJ} 2546: IF Ste 
B017 2 IF а THEN 5%-8РС a "" THEN GOUD 20000 
8819 2 DO Hu dis 12912 1 IF LEN(S$) o8. 6 THEN GOSUB 21998 
NEXT 12815 DOUD 158920: NEXT КЕ 
29 505: зае 12823 GOSUB 4566: RETURN 
d IF FLAGFO BOSUB 8760:60T0 8052 15999 IHPUT este " vers "ААР (DAS<"A" AND ОА >"<" AND раф >">") OR 
созив aas 1151 DA$>CHR$ f DR (AASC"A" AND ба“ AND AAPL >p") OR AAECHRE (94) 
EXS=A$ (II, 15.2} 1 BOSUE 22866 Q THEN RETURN 
II=II+1:IF 11451 THEN 8023 d IKzASC(DA$)-64:1F IK=(-2) OR IK-(-4) THEN IK=IK+EZ 
8039 RETURN JJ=ASC (ARS) -A4 IF Jdj-(-2) OR ddj-(-4) THEN JJd=dd+32 
Doze САН М $F880:8EM SKIPI GOSUE 11928 
8960 GOTO вода RE (1D) та 
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РАБ -— PATE CAD D ы, ET 
BÜSUB 4520: RETURN PASE 98 BATminiCALC P.WANET 


55050  E=A(5.6,00) 
55656 Е-4(6.0,14) 
55676 Б-А(7.6,24) 
55686  H=A(8.9, JJ) 
55696 1=A(9.8,dd) 
55196  J=A(19.0,JJ) 
Ge 55119 К=А(1 634 
(KK))) 55129 L-8(12 d) 
á 5512 (12.@,4 
$ RETURN 55156  'M-AI.0,dJ 
55140 — N-A (14.0, J3) 
T 55145  SS-J4K 
EN SS-QB:GOTO 20910 55146 — &(14.0,31) -58: GOSU 
55158  O=A(15.0,J3) 
59155 SS=( (BaD /190+E) K18F/ 
55158 (15.9, JJ}=SS: 60SUB 
551 P=A(16.0,00) 
55165  SG=( (BED/1004E) ят 
55186 — A(16.9,22)-88:60 SUB 





58 


Ж LEFT (RS (KK , 3J? HA SSHRIBUTS (RS KK Sg 
Ggs”. JE E M | pud 










2/C+H+9, 9 
JJ}=S¢:G0SUB 21000 











21999: 
SÉ 55170 054(17.9,030 
_ 55175 — SS-((BKD/ 1004E) x14F /1000/L46) #103, A2/C4440.9 
T MM IF 80.56 THEN SS-OQ:G0TD 25020 55176 А(17.0,17) =55:50808 25000:0$(17.0,JJ)-8$:608UB 71000:KK-17.0:808UB 15000 


55188  R=A(18.0@,JJ 
55185 SS PIB ЫДАН АНЫ 19542+8.9 
55188 | 4(18.9,02)-56:60608 25000:44(18.8,00):84:805108 21000:KK-18, 8: BÜSUB. 15000 


Н 

1 НЕМ S$="overflow” 
25050 RE 

ы 


52806 | LEI-LEN(EX$)-1:1F LEIZ THEN LINES=LEFTS (STR$ (55085. 0+11%10) ,6):60SUB 55190 5=д(19 0,43) 

53809: L INES=LEFTS (STRE (55006.8+11819),6) :8060В 53000: RETURN сен  SORIDAD/IO0 EYWE/KICKO 10242800 
52895 IK=0 ES Е пода ST даа до 

ЕНЕДІ 5 .9,02)-S8:808UB 25000:4%(19.0,222-5%:60БИВ 21099:kK-19.0:G08UB 15000 
92819 — CO=MIDE(EXS, IK, i): IF C$="#" THEN EXS$-RIBHTS(EXS,LEI):LEI-LEI-1:BDT кое Наи, J4 ds анына ыы Е 
52810 24 =A (29.9, J S 
= = i за 

52815 IF D$-"," THEN EXSSLEFTS(EX$, LED :LET=LEI-1 See 


55206 А(20.0,22)=59: 605068 250@0:А%(26.0,Ь0})=5%:6505ИВ 210080:EK-20.0: GOSUB 15009 
55218 ШПкА(21.0,44) 
55215 | SS-(BSD/1004E)4F&1/J/C80. 1054240, 9 


32816 iF све" THEN EXS-LEFTS(EXS$, IE) +"ABLZ"+RIGHTS (ЕХФ, LEI- IK) :LEI-LEI42 
$2826 IF СФ="<" THEN EXS=LEPTS (ЕХФ, IK) E "ALZ'HRIGHTS(EX$, LEI-IK) t LEI-LEI42 














52839 IF C$="]" THEN EX$=LE XS, Kirn у -IK) : за: , 
Bodo ТЕ Csete THER Зета Мола е UE Ko e 5216  A(21.0,04)-88:808UB 25080:45(21.0,0J)-8$:809UB 21000:KK-21.0:609UB 15000 
52850 1К=]К+1:1Е IKC=LEI+1 THEN 52819 | ШЫ | P теси ee 342 
52860 LINES=LEF TS (STR$ (55005, O4 11410. 0) 6) +°SS%="4EX$: 6058 53008 oc Mei gea adi ды i p pud rd P Ge 
52865 — LINES-LEFTS (STR (55005411419) , 6) &" AL ("ASTRE ID +" 227) 2957: SOSUB 25000: 585225 | à(22.0,02)-88:808UB 25000: A$ (22.0,0)=8%: 60908 21000:KK-22.0:B808UB 15000 
С ТРИ ا‎ Ег 55250 W=A(23.0.JJ) 
"+ BOS UB 210 EE 55235  SS-(ND/1004£) stat 
E+": 00608 21000:KKZ-"45TRE(LII) +": вовив 15020: 255% ыы 15066 
55240 X=A(24.9, JD 
| 55258 | Y=A(25.0,33) 
ЕРТ | 55200 7=А(2&.@,14) 
IF 1 55270 — 86-A(27.0, JJ) 
LINE 55286 | A1-A(CB. 6,12) 
LINE 
cosy | 
28 RETURN 
STOP 
LINES=L INES+CHR# (13) 4CHR$ (0) : ASVARPTR (LINES) : А=РЕЕК (А) +PEEK (AH ) #25441: 
B=A+LEN (LINES) 
53018 POKE #A2,A MOD 256:РОКЕ 843,0 SHR H:POKE #04,В MOD 256:Р0КЕ #45,в SHR 8: 
POKE #135,2:CALLM #ЕВФӘ:РОКЕ #135, Ge RETURN 
559920 REI M жұлын» 
55016 AALL, 33) 
B-4(2.0, 12) 
Cent, 0,42) 
D-414, 0, JJi 
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ЫЛ US an ма us 
FIN 45 Hà W8 MN? 
AVION 30 
TRANSFERT 
COEFF. EEN, 
CHANGE 


NUITS 





SINGLE 2000 2806 3400 1400 


i 





, 
SUP REPAS 600 500 
LE 


5 
TOTAL OBL 22098 24075 26691 2978 
V S DG) #F 7100) 103, 42/E 4400, 
SINGLE — 2222 25488 — 28103 27185 
WU (DOG) 8F/190) 3103, A2/EH400, 
DÉL/ jour 1130 1624 2048 2048 
не. 042/Е, 
601. / jour 1412 1977 2391 2401 
нна, 03321, 


SUP REPAS Ch 423 45 422 
НОРМЕ, 

DEBUT 1/4 5/5 8/ & 1/9 
i A? 76 3X8 14/10 
` HOTELS BECH BECH BECH BELH 
ET 2000 2000 2006 2000 
‘ ROUBLE 1400 2050 2750 2750 
| SINGLE 1500 2700 3400 3400 
От REPAS 750 750 730 730 
g AVION 12500 12800 12220 12800 
# 


, X 

TOTAL OBL 21332 2399 

BO нужд) SF 100) 4102, 52/6000, 
SINGLE 22098 25205 28107 27181 

OG UHR) E7100) 8102, A2/E+460, 

D8L/ jour 388 1447 1942 1942 
кара OTAZ/E, 
88.7 jour 
нежно ми, 
SUF REPAS 329 529 529 529 
RAFAL, OGA2/E, 


26267 253% 


uS 1906 2301 2401 
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ii 
4/10 
12500 
2006 
82 
EA 
4 
SEKIS 
2300 


2800 


24075 
25488 


1924 


15/10 
5/10 
BECH 


2090 


SEKIN 


4000 


550 


800 


1250$ 


20544 


DEURTH 
1600 


2100 


500 


30/ 3 


SEKIN 


4000 


13250 


21805 





2/5 
30i 8 
12236 
866 
82 
56 
4 


DEURTH 
1650 


2200 


SEKIN 
4000 
89 


990 





2200 


500 


950 














bari hd 
Г Г Г | Г 
[Hit 5 Leuchtdioden alles in Blick 111 | 





тай zi PUB es Qf + EP oed ЖЕ E "UD se 206% ШО 







In der DER geht ein Flachbandkabef von der Zusatz ~ рек 
platine zur Laufwerkspfatine dort ist es anc oc) 
Die BnschPugunkte sind потеглегї. са 

Pon 








H U H HB m wg gw H H 

















Layout ; Hardy Strobel, Heuzelzbrunn 51, 8500 Hornberg 50 
Ausführung: “fearn ferrand 
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n 
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Na lange jaren te hebben 
doorgebracht met de ver- 
vaardiging van een enkel 
mikro model, beslist DAI 
het geweer van schouder 
te veranderen door diver- 
sifikatie van het aanbod. 


| De nieuwe machines zijn 
| van het type «trois piè- 
ces » zoals men in de mo- 
dewereld zegt: een sys- 
teembehuizing, een moni- 
tor en een toetsenbord. 


De monitor is een Sanyo, 
| die 225 x 528 punten in 16 
| kleuren afficheert; het 
toetsenbord en de centra- 
le eenheid zijn gesierd met 
vlakke skai, die het in een 
Lodewijk XV salon fantas- 





De nieuwe ВАР5 





doen. Vier modellen wor- 
den voorgesteld : de DAI-T, 
die eeneenvoudige terminal 
is, en de DALT 1, 2 of 3, die 
monoposten zijn met 1, 2 of 
3  diskette-drives van 
5,25", die door de DOS 
V3.0 elk met 640 К wor- 
den toebedeeld. 


De CPU is steeds die goeie 
ouwe 8080. Naar waar- 
heid krijgt hij wel wat ou- 
derdom, maar bij Intel ver- 
zekert men, dat deze pro- 
cessor meestal slechts op 
5 of 1096 van zijn moge- 
lijkheden wordt aange- 
wend; indien DAI dit per- 
centage opvoert, dan is 
het mogelijk, dat hij tot 
prestaties komt, die ver- 
gelijkbaar zijn met de mo- 








Twee programma’s wer- 
den ons getoond op de op 
Bureau 84 voorgestelde 
prototypes: een spread- 
Sheet en een tekstverwer- 
king. Hun oorspronkelijk- 
heid ligt in het systema- 
tische gebruik van kleur 
om de aktiviteiten te be- 
Schrijven. 


Maar het grote probleem 
blijft steeds hetzelfde : de 
programma's. Omdat 


enkele andere bron be- 
schikken, vermits ze 
slechts kompatibel zijn 
met elkaar, moet men op 
een specifieke produktie | 
wachten om de toepassin- | 
gen te ontwikkelen. Voor 
het ogenblik moeten 
zowat 5 tot 6 program- 
ma's beschikbaar zijn; 
men dient toe te geven, 
dat de keuze niet zeer ruim 
is. 

Maar in ieder geval, good 




















POKE 475,32:MODE 6:MODE O:PRINT CHR$(12):COLORT 9 14 9 9 
POKE #8907, #42: CURSOR 1,19:PRINT "FEU":POKE #BC45,#5F:CURSOR 3,16:PRINT "D'ARTIFICE" 
POKE #8885, #4Е CURSOR 0,13:РКІМТ "----- "WAIT TIME 200 
CFz9,01C123. 0: 2714.0: C3215.0 
MODE 6:COLORG CF Ci C2 C3 

FOR J=32.0 TO 8.0 STEP -12.0 
A=CisIF J=20.0 THEN A=C2 


IF 4=8.0 THEN A=C3 
GOSUB 500: XA=XN: YA=YN 


FOR 1z0.0 TO 2.0#Р1 STEP PI/128.0:808UB 500: DRAW XMAX/2-XA, YMAX/2-YA XMAX/2-XN, YMAX/2-YN À 


s XA=XNs Үй-ҮМі NEXT I 


190 
220 
230 
240 
250 
500 
$10 


NEXT J 


FOR K=1.0 TO 100.0:0-1.0-G 
COLORG о GERND(16.0) RMD(14.0) RND(16.0) 
WAIT TIME 20+RND (100.0): NEXT 


GOTO 130 


Кее (1. 0-C08 (12. ORI) 43.0) 
XN=R#COS CI) 2 YN=R#GIN(1) : RETURN 
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tisch zouden moeten derne kringen. deze machines over geen luck! 
mannin 
REM : FE HEE HEF FE E ЕУ E E EE E EE FE EF E kk FEE 
REM : * ж 
REM : * R.MARCEL FEVRIER 1982 * 
REM : * * 
REM : * FEU D'ARTIFICE + 
REM : EFE HF HE EE EE E E FF THT DE SE AE AE EF EEE 


1 
x 
5 
& 
7 
8 
3 


























чи os мә 





WAARSCHIJNLIJK HEEFT IEDERE DAI-GEBRUIKER ZICH WEL 
EENS GEERGERD AAN HET STEEDS WEER MOETEN LADEN VAN DE 
$ VEEL GEBRUIKTE ROUTINES OF PROGRAMMA'S. МЕТ NAME 
SDIEGENEN DIE VEEL MET ASSEMBLER WERKEN EN EEN AUDIO- 
SCOSSETTERECORDER ALG OPSLAGMEDIUM GEBRUIKEN. 

DCE-BUS WORDT TIJDENS DE POWER-UP ROUTINE OF NA 
SEEN RESET DOOR MIDDEL VAN EEN IN DE FIRMWARE OPGENO- 
ЗМЕМ ROUTINE GECONTROLEERD OP EEN EVENTUEEL AANGESLO- 
STEN APPARAAT DAT WIL COMMUNICEREN. 

INDIEN DIT ZO IS, ZAL DE ОР DE BUS AANGEBODEN DATA ОР 
SDE STACK GEPLAATST WORDEN. DEZE DATA MOET EEN PRO- 
зсвамма ZIJN, DAT IN DE RUIMTE VAN DE STACK PAST (FBM 
3-F 900). DIT PROGRAMMA WORDT DOOR DE DCE-BOOTSTRAP GE- 
SSTART. MET BEHULP VAN DIT PROGRAMMA, DAT OP ZIJN 
BEURT OOK WEER EEN BOOTSTRAP KAN ZIJN, WORDT DE DATA 
SOPGEHAALD VAN DE GEWENSTE ROUTINE OF HET GEWENSTE 

3 PROGRAMMA, ^ 

SNATUURLIJK МОЕТ DEZE BOOTSTRAP DE DATA OP DE JUISTE 
PLAATS GAAN SCHRIJVEN. DUS ZAL HET BEGIN-ADRES ЕМ 
SHET EIND-ADRES VAN DE ROUTINE OF VAN HET PROGRAMMA 
?MEEGEGEVEN MOETEN WORDEN. 

SVERDER IS ER EEN STUK HARDWARE NODIG OM DE IN DE 
:EPROM OPGESLAGEN DATS ОР DE DCE-BUS TE DOEN ZETTEN, 
:DE BOVENGENOEMDE FILOSOFIE HEEFT GELEID TOT DE ONT- 
SWIKKELING VAN HET DAI-EPROM-PACK, 
3DEZE ONTWIKKELING WORDT DOOR ENKELE DAI-GEBRUIKERS, 
DIE ZICH MET ASSEMBLER «(ОМА EN SPL} BEZIG HOUDEN, 

:üL ENIGE TIJD TOEGEPAST, NA HET RANZETTEN VAN DE DAI- 
MACHINE IS BIJVOORBEELD SPL DIRECT BESCHIKBAAR. 
sDE LAADTIJD WORDT IN DE PRAKTIJK NIET ВЕМЕВКТ, 
DEZE SLECHTS 1-2 SEC. BEDRAAGT 
ЗЕҢ ZIJN DIVERSE BOOTSTRAP PROGRAMMA? 5 
SEEN TWEE STUKS ZIJN HIER AFGEDRUKT. 
1DE EERSTE VERSIE 15 MINDER DAN 64 BYTES GROOT ЕМ 
{ВАРТ EEN GANEENGESLOTEN BLOK VAN EEN OF MEERDERE 
PROGRAMMA? 5. DE WEERSTAND VAN АКТ BIJ HET VERBR 
з сомтаст IS рам OP PIN А VAN DE СрАША@ AANGESLOTEN, 
3DE TWEEDE VERSIE IS GROTER DAN Ба BYTES EN IS BEDOELD 
:0M GESCHEIDEN PROGRAMMA'S OF ROUTINES TE LADEN OP 
TEVOREN BEPAALDE ADRESSEN, DE WEERSTAND VAN АҚ? 18 
зрам AANGESLOTEN ZOALS HET SCHEMA AANGEEFT OP PIN 13 
SVAN DE срафад. 

SER WORDT GEWERKT AAN EEN BOOTSTRAP WAARBIJ ER DIRECT 
JEEN MENU VERSCHIJNT, WAARDOOR МЕМ KAN KIEZEN UIT 
BIJVOORBEELD: A-BASIC | E-SPL  C-TEKSTVERWERKEN. 

SEEN ADVIES MET BETREKKING TOT DE HARDWARE: 

sDE C-MOS IC'S EN DE EPROMS ZIJN SOMS MOEILIJK 
VERKRIJGBAAR, WAARDOOR DE PRIJZEN HOOG KUNNEN LIGGEN. 
3ONDERZOEK DUS EERST DE VERKRIJGBAARHEID VAN DEZE COM- 
? РОМЕМТЕМ. HET IS NIET NOODZAKELIJK DIRECT ALLE EPROMS 
ТЕ INSTALLEREN, MET EEN WERKT HET ООК. 


2 
H 












омрет 





IN GEBRUIK. 
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79 


80 
81 
82 
as 
54 


рај 
e 


56 
87 
as 
89 
за 
91 
за 
95 
за 
95 
ЗЕ 
37 
зе 
БЕ) 
1@@ 
idi 
102 


SAG-A7 CIN} 
SDRUNTOETS 
sG 78 
здраве 
зада dB 


EM a 


BRONNEN 
DAINAMTE 


INTEL 
DATRI-SHEETS 


чк чи ми ма ша чи чи ыш ша ма ма чэ ча ~ 


FIRM-WARE 
MANUAL 


us ap за че 
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IT те ДЕК. «ахсақхвәо 
Fs 


ENAANSLUITINGEN VAN DE DCE-BUS 


^ pg COMMUNICATIE 





DATA GELDIG? INIEN C7="1" DAN 
DE DATA OP POORT A INGELEZEN, 


(SOFTWARE? 

















WORDT ER NAAR DE 
DRONGEN, 





INDIEN HET CONTACT i8 БЕС 
DE POWER-UP ROUTINE OF EE! 
DE EPROM INHOUD GELADEN, 


TI 


JDENS 









DECADE COUNTER 
BINARY COUNTER (1 
BUFFER (EX) 

EPROM CARXEzAD3E) 








"ва NR, BLZ 3-4 DE DCE-BUS 
M.B.* IN DE TEKENING DE 1 EN DE 2 VAN 
Pi EM P? VERWISSELEN, 





32 NR.9 BLZ 9 DCE-CONNECTIONS 


JOS SCHEPENS, 





IX MR. 14 BLZ 26-29 INITIALISATION 
DCE~PERIPHERALS 
NE: ADRES #EFA7-#EFBE PORT A 
MOET ZIJN PORT B 


27 ЕРКОМ 


85255 Р.Р. I. 








DCE-INPUTROUTINE 
B. J. BOERRIGTER 
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T WORDT 





START 


Vi.i PAGE 


NOT 


NOG 


ENDR 


STARTA 
ENDA 


ма ss ue чт 


COUNT1 


А 


BLOCK 


TITE 


ERU 
ERU 
EQU 


ORG 


LHLD 
XCHG 
LHLD 


LDA 

MOV Ма 
MOV DH 
SUB D 
JZ 

MOV в 
SUB E 
JZ 


HV ISA 
STA 
LDA 
амі 
JNZ 
MVI A 
STA 
INX H 
JMP 
LXI H 
RET 
ORG 
DW 

DW 
END 


TITL 


ORG 

ERU 

NOP 

LXI H 
PUSH H 
MOV DM 
INX H 
MOV B.M 
INX H 
MOV E.M 
INX H 
MOV D.M 
INX H 
SHLD 
PUSH B 
POP H 
CALL 
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*BOOTSTRAP A.J.’ 
? H 

üFcaoH 

D GO 





üFGODH 
сыра i 
STARTA 
PRE 


BOOTSTRAP А. J. 





NOT sy FOR 

i 

+) END- 
ENDR 5) ADDRESS 





вен ;) С7 
моб 5} LOW 
SH зеРС2 


РРІЗЗН $€HIGH 


START 
HEAP 


ЙЕВЗЕН 


B4 00H 
DEZFFH 


°’ BOOTSTRAP Ј. А.Р. 5491097 


жіж IF HEAPPOINTERS MUST NOT BE CHANGED, 
жіж PUT IN THIS 2 INSTRUCTIONS. 


OFGOOH 
297H 
CEB) PUSH H xi 
TABLE 
Дд агы 
3—-START ADDRESS 
3HIGH- 
3 LOW 
:--ЕМО ADRESS 
HIGH- 
COUNT i 
H 
$i BE TO HL 
COMPAR 
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165 
166 
167 
165 
169 
170 
171 
172 
173 
174 
SPL 


i73 
176 
177 
176 
173 
190 
1g 
182 
183 
184 
185 
185 
7167 
iss 
189 
198 
91 
192 
193 
134 
185 
196 
197 
138 
199 
200 
201 
202 
ЕЙ 
284 
205 
26 
207 
208 
209 
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BOOTSTRAP Ji А. Р. 


JNZ STARTI 
POP H 
LDA ОРЕДТН 
ANI ФҒЕН 
STA ВҒЕВІН 
МОР 
ВЕТ 
STARTI РОР B 
LXI B OFEQ@SH 
Vi.1 PAGE A 
STARTZ LDA WEE OO) 
MOV M A 
MVI A 4H 
STAX B 
INR A 
STAX E 
INX H 
сащ. COMPAR 
JNZ STARTE 
PUSH H 
LHLD COUNT1 
JMP BLOCK 
ЗСОМРАКЕ HL-DE. 
COMPAR MOV DH 
SUB D 
RNZ 
MOV DL 
SUB E 
RET 
:STRRT- AND END-ADDRESS 
TABLE DW EOOH 
DW ©1@Н 
DW ӨЗЕН 
DW ват 
DW задн 
DW ззан 
DW ен 
DW ен 
END 


*EPROM PACK: 


TABLE. 


3 HL=DE 

SNOT THEN STARTI 

YES THEN POP END ADDRESS 
5! 

$ 
s! RESET EPROMPACK 
T$OE12 POP H жіж 
;END OF ROUTINE 


GRILL SAVED END ADDRESS 
540103 


GET DATA 
SSTORE DATA 

3) RESET PCS 

+) =INOR. 
5) Den 

1) SET PCE 

5) NEXT ADDRESS 
SEND ADDRESS REACHED? 

МОТ THEN STARTS 

YES THEN PUSH END ADDRESS 


COUNTER 


sSTARTADDRESE (FIRST PART) 


ЗЕМ ADDRESS+1 

SSTARTADDRESS (SECOND PART? 
TEND ADDRESS+1 
:STARTADDRESS ¿THIRD PART) 


SEND ADDRES+1 

H 1” 13 
ira 13 
5) AT THE 
$} EX ZERO 


END ALWAYS 































EPROM 3 









EPROM 2 





EPROM 1 





EPROM 0 
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ОА! EPROM PACK 
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ERRATTA DATAFLEX ERRATTA DATAFLEX ERRATTA DATAFLEX ERRATTA DATAF 


Mr Siegfried  Brys meld ons een bug in het Dataflex programma op 
de Dataflex diskette. Er zijn problemen wanneer een bestand vol 
is en men toch probeert het aan te vullen.(@ - ENTER) 
Volgende wijzigingen worden voorgesteld : 

1808 FOR PX-USEDZ*1 TO LENGTHZ:R¢="" 


wordt : 


1000 IF USEDZ=LENGTH% GOTO 1075 
1885 FOR PZ=USED%+1 TO LENGTHY: R=" " 


en = 


1878 GOSUB  950:NEXT P%:GOSUB 3OU:PRINT "FILE IS FULL, ІТ NEEDS 
EXTENDING '"; 


wordt : 


1070 GOSUB 950:МЕХТ P% 
1075 GOSUR S@@:PRINT "FILE IS FULL, IT NEEDS EXTENDING "ns 


tll Type : #17, >25, ОБ voor U editeert. !!! 


Mocht U problemen hebben hiermee stuur Uw copy terug, wij zenden 
U de gewijzigde versie terug. 


Gedurende de boodschap ‘FILE IS FULL ....' moet U de spatiebalk 
indrukken om terug in het menu te komen. 


Mocht er nog iemand op een е1 zitten, aarzel niet in Uw pen te 
kruipen. 


Couwberghs Frans 

Boekdonkstraat 13 

3980  Tessenderlo 
013/666340 
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yery application 























) 300 Bfr [1 DAlpc SCHEMATICS 850 Bfr 
) 300 Bfr О BEST of DAlnamic (80-81) 500 Bfr 
1000 Bfr d п DAlnibble 800 Bfr 
rainer 1000 Bfr О Education 6 1000 Bfr 
2 MODE @:PRINT CHR$(2) iic tutor 500 Bfr L] Education 7 1000 Bfr 
i COLOR ; 
4 FOR КЕСЕ Wr MEER STEP -#86:POKE 1, #FO+RND (15) : NEXT 1500 Bfr [] Education 8 1000 Bfr 
5 Ags" + ":GOSUB e 
eg а о 800 Bfr ГІ Frogger 1250 Bfr 
2 Ag=" HE + ". 
ST най Қан d азана 850 Bfr ПІ Eagles 1000 Bfr 
ao age Мена ыы ле ha AHSA ":808МВ 100 БОО Bfr [1 Phoenix 1250 Bfr 
S0 А$=" d +54- HERG ":80SUB 100 
60 А%=" HIDE + SERBIE ":GDSUB 100 ! 650 Bfr П Tangram | 750 Bfr 
79 А%=" а HES HG ";GOSUB 100 
MB зе нЕ EE d "8088 100 |-15 650 Bfr О Turtle-Basic 1250 Bfr 
81 A=" + те ";GOSUB 100 
85 A=" datb ЗА — PRETTIGE ":GOSUB 100 600 Bfr [1 Toolkit 6 1000 Bfr 
85 AS=" HHHH эф E KERSTDAGEN ":GOSUB 100 
85 Ad$-Uas фи ара фан SEER # EEN VOORSPOEDIG "sGOSUB 100 600 Bfr r MIX 1 500 Bfr 
87 ASH" HHH DE FE E FEE ED EF HEEE BEHRE 1985 “sGOSUB 199 
D А$=" II RR HEEE ":BOSUB 190 600 Bfr L] QUEST adventure 600 Bfr 
Ags" ДЕ ":80SUB 100 
92  A$=" ":GOSUB 190 800 Bfr O Sociale Geografie 1000 Bfr 
i ee 109 wijs 990 Bfr L1 D-BASIC 2000 Bfr 
А 2 a е дара О оо E 1100 Bfr ПІ Math'fun 2 1000 Bfr 
1% FOR Lé ТО S9:W=ASC(MIDS(A$,1,1)):IF W-32 THEN PRINT " ";:NEXT 750 Bfr O DOS-TOOLKIT (disquette) 1250 Bfr 
120 IF шелі THEN PRINT CHRS ВО LIET | 750 Bfr JJ DATAFLEX (disquette) 1500 Bfr 
T ТЕ es Hen Ge s ра WRC FUE #B3ES-XX+YY-9, BFF: NEXT 500 Bfr [] Fysische Geografie 1000 Bfr 
iso u s THEN PRINT RE EE #BZES-XX+YY-9,56:NEXT ` 500 Bfr С Boekhoudprogramma 2000 Bfr 
p РОК оза ADR PoE #B3E4+ (CURY-1) #886, #28 600 Bfr О Games collection 13 750 Bfr 
HS. PRINT МОНА ЛЕНЕТ ator 1750 Bfr [] Games collection 14 750 Bfr 
ssor 2000 Bfr O ЗЕСТ 1000 Bfr 
1100 Bfr O Firmware manual 1350 Bfr 
2100 Bfr [] Superbase -- 
2100 Bfr LJ Patrouiller — 
2100 Bfr L] Compilation 83-84 == 
3000 Bfr indicated prices are for audio, DCR + 150 Bfr 
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